function p = findLines( board,player,l,oponent,o )
    % cantidad de lineas que tengan 2 casilleros con player y en restante
    % vacio

    p=0;
    %EMPTY=oponent;
    d1=[board(1,1),board(2,2),board(3,3)];
    d2=[board(1,3),board(2,2),board(3,1)];
    
    for i=1:size(board,1)
        f=board(i,:);
        c=board(:,i)';
        if(size(find(f==player),2)==l && size(find(f==oponent),2)==o )
            p=p+1;
        end
        if(size(find(c==player),2)==l && size(find(c==oponent),2)==o )
            p=p+1;
        end
    end
    if(size(find(d1==player),2)==l && size(find(d1==oponent),2)==o )
        p=p+1;
    end
    if(size(find(d2==player),2)==l && size(find(d2==oponent),2)==o )
        p=p+1;
    end

end

